home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / tabnotbk.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  4.8 KB  |  133 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Tabnotbk.pas' rev: 3.00
  6.  
  7. #ifndef TabnotbkHPP
  8. #define TabnotbkHPP
  9. #include <Menus.hpp>
  10. #include <ComCtrls.hpp>
  11. #include <Controls.hpp>
  12. #include <Graphics.hpp>
  13. #include <Messages.hpp>
  14. #include <Forms.hpp>
  15. #include <StdCtrls.hpp>
  16. #include <Classes.hpp>
  17. #include <Windows.hpp>
  18. #include <SysInit.hpp>
  19. #include <System.hpp>
  20.  
  21. //-- user supplied -----------------------------------------------------------
  22.  
  23. namespace Tabnotbk
  24. {
  25. //-- type declarations -------------------------------------------------------
  26. typedef void __fastcall (__closure *TPageChangeEvent)(System::TObject* Sender, int NewTab, bool &AllowChange
  27.     );
  28.  
  29. class DELPHICLASS TTabPage;
  30. class PASCALIMPLEMENTATION TTabPage : public Controls::TWinControl 
  31. {
  32.     typedef Controls::TWinControl inherited;
  33.     
  34. protected:
  35.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  36.     
  37. public:
  38.     __fastcall virtual TTabPage(Classes::TComponent* AOwner);
  39.     
  40. __published:
  41.     __property Caption ;
  42.     __property Height  = {stored=false};
  43.     __property TabOrder  = {stored=false, default=-1};
  44.     __property Visible  = {stored=false, default=1};
  45.     __property Width  = {stored=false};
  46.     __property Enabled  = {stored=false, default=1};
  47. public:
  48.     /* TWinControl.CreateParented */ __fastcall TTabPage(HWND ParentWindow) : Controls::TWinControl(ParentWindow
  49.         ) { }
  50.     /* TWinControl.Destroy */ __fastcall virtual ~TTabPage(void) { }
  51.     
  52. };
  53.  
  54. class DELPHICLASS TTabbedNotebook;
  55. class PASCALIMPLEMENTATION TTabbedNotebook : public Comctrls::TCustomTabControl 
  56. {
  57.     typedef Comctrls::TCustomTabControl inherited;
  58.     
  59. private:
  60.     Classes::TList* FPageList;
  61.     Classes::TStrings* FAccess;
  62.     int FPageIndex;
  63.     Graphics::TFont* FTabFont;
  64.     int FTabsPerRow;
  65.     Classes::TNotifyEvent FOnClick;
  66.     TPageChangeEvent FOnChange;
  67.     System::AnsiString __fastcall GetActivePage(void);
  68.     void __fastcall SetPages(Classes::TStrings* Value);
  69.     void __fastcall SetActivePage(const System::AnsiString Value);
  70.     void __fastcall SetTabFont(Graphics::TFont* Value);
  71.     void __fastcall SetTabsPerRow(int NewTabCount);
  72.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  73.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  74.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  75.     
  76. protected:
  77.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  78.     DYNAMIC void __fastcall Change(void);
  79.     DYNAMIC void __fastcall Click(void);
  80.     virtual void __fastcall CreateHandle(void);
  81.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  82.     DYNAMIC Classes::TComponent* __fastcall GetChildOwner(void);
  83.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  84.     virtual void __fastcall Loaded(void);
  85.     DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  86.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  87.     void __fastcall SetPageIndex(int Value);
  88.     virtual void __fastcall ShowControl(Controls::TControl* AControl);
  89.     MESSAGE void __fastcall CMTabFontChanged(Messages::TMessage &Message);
  90.     
  91. public:
  92.     __fastcall virtual TTabbedNotebook(Classes::TComponent* AOwner);
  93.     __fastcall virtual ~TTabbedNotebook(void);
  94.     int __fastcall GetIndexForPage(const System::AnsiString PageName);
  95.     __property Graphics::TFont* TopFont = {read=FTabFont};
  96.     void __fastcall TabFontChanged(System::TObject* Sender);
  97.     
  98. __published:
  99.     __property System::AnsiString ActivePage = {read=GetActivePage, write=SetActivePage, stored=false};
  100.         
  101.     __property Align ;
  102.     __property Enabled ;
  103.     __property int PageIndex = {read=FPageIndex, write=SetPageIndex, default=0};
  104.     __property Classes::TStrings* Pages = {read=FAccess, write=SetPages, stored=false};
  105.     __property Font ;
  106.     __property int TabsPerRow = {read=FTabsPerRow, write=SetTabsPerRow, default=3};
  107.     __property Graphics::TFont* TabFont = {read=FTabFont, write=SetTabFont};
  108.     __property ParentShowHint ;
  109.     __property PopupMenu ;
  110.     __property ShowHint ;
  111.     __property TabOrder ;
  112.     __property TabStop ;
  113.     __property Visible ;
  114.     __property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
  115.     __property TPageChangeEvent OnChange = {read=FOnChange, write=FOnChange};
  116.     __property OnEnter ;
  117.     __property OnExit ;
  118. public:
  119.     /* TWinControl.CreateParented */ __fastcall TTabbedNotebook(HWND ParentWindow) : Comctrls::TCustomTabControl(
  120.         ParentWindow) { }
  121.     
  122. };
  123.  
  124. //-- var, const, procedure ---------------------------------------------------
  125. #define CM_TABFONTCHANGED (int)(45156)
  126.  
  127. }    /* namespace Tabnotbk */
  128. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  129. using namespace Tabnotbk;
  130. #endif
  131. //-- end unit ----------------------------------------------------------------
  132. #endif    // Tabnotbk
  133.